home *** CD-ROM | disk | FTP | other *** search
Text File | 1998-10-30 | 3.6 KB | 231 lines | [TEXT/CWIE] |
- { DModalTextData.p -- data container class for Everything}
-
- Unit DModalTextData;
- Interface
-
- Uses
- Types,
- OSUtils,
-
-
- AMSignaler;
-
- const
- idSmall2 = longint ('Sma2');
- idLarge2 = longint ('Lar2');
- idX12346 = longint ('X146');
- idX12345e7 = longint ('X127');
- idPassword2 = longint ('Pas2');
- idDate2 = longint ('Dat2');
- idTime2 = longint ('Tim2');
- idStyled2 = longint ('Sty2');
-
- type
- {----------}
- DModalTextData = object (AMSignaler)
-
- {data members}
- mSmall2: Str255;
- mLarge2: Str255;
- mX12346: SInt32;
- mX12345e7: double;
- mPassword2: Str255;
- mDate2: LongDateRec;
- mTime2: LongDateRec;
- mStyled2: Str255;
-
- {methods}
- Procedure Initialize; Override;
-
- Function GetSmall2: Str255;
- Procedure SetSmall2 (inValue: Str255);
- Function GetLarge2: Str255;
- Procedure SetLarge2 (inValue: Str255);
- Function GetX12346: SInt32;
- Procedure SetX12346 (inValue: SInt32);
- Function GetX12345e7: double;
- Procedure SetX12345e7 (inValue: double);
- Function GetPassword2: Str255;
- Procedure SetPassword2 (inValue: Str255);
- Function GetDate2: LongDateRec;
- Procedure SetDate2 (inValue: LongDateRec);
- Function GetTime2: LongDateRec;
- Procedure SetTime2 (inValue: LongDateRec);
- Function GetStyled2: Str255;
- Procedure SetStyled2 (inValue: Str255);
- end;
-
- {----------}
- Function NewDModalTextData: DModalTextData;
-
- {----------}
- Implementation
-
- {----------}
- Function NewDModalTextData: DModalTextData;
- var
- data: DModalTextData;
- begin
- data := nil;
- New (data);
- if data <> nil then begin
- data.Initialize;
- end;
- NewDModalTextData := data;
- end;
-
- {----------}
- Procedure DModalTextData.Initialize;
- begin
- inherited Initialize;
-
- mSmall2 := 'small';
- mLarge2 := 'large';
- mX12346 := 0;
- mX12345e7 := 0.0;
- mPassword2 := 'password';
- mDate2.eraAlt := 0;
- GetTime (mDate2.oldDate);
- mTime2.eraAlt := 0;
- GetTime (mTime2.oldDate);
- mStyled2 := 'styled';
- end;
-
- {----------}
- Function DModalTextData.GetSmall2: Str255;
- begin
- GetSmall2 := mSmall2;
-
-
- end;
-
- Procedure DModalTextData.SetSmall2 (
- inValue: Str255);
- begin
- mSmall2 := inValue;
-
-
- SignalDataChanged (idSmall2);
- end;
-
- {----------}
- Function DModalTextData.GetLarge2: Str255;
- begin
- GetLarge2 := mLarge2;
-
-
- end;
-
- Procedure DModalTextData.SetLarge2 (
- inValue: Str255);
- begin
- mLarge2 := inValue;
-
-
- SignalDataChanged (idLarge2);
- end;
-
- {----------}
- Function DModalTextData.GetX12346: SInt32;
- begin
- GetX12346 := mX12346;
-
-
- end;
-
- Procedure DModalTextData.SetX12346 (
- inValue: SInt32);
- begin
- mX12346 := inValue;
-
-
- SignalDataChanged (idX12346);
- end;
-
- {----------}
- Function DModalTextData.GetX12345e7: double;
- begin
- GetX12345e7 := mX12345e7;
-
-
- end;
-
- Procedure DModalTextData.SetX12345e7 (
- inValue: double);
- begin
- mX12345e7 := inValue;
-
-
- SignalDataChanged (idX12345e7);
- end;
-
- {----------}
- Function DModalTextData.GetPassword2: Str255;
- begin
- GetPassword2 := mPassword2;
-
-
- end;
-
- Procedure DModalTextData.SetPassword2 (
- inValue: Str255);
- begin
- mPassword2 := inValue;
-
-
- SignalDataChanged (idPassword2);
- end;
-
- {----------}
- Function DModalTextData.GetDate2: LongDateRec;
- begin
- GetDate2 := mDate2;
-
-
- end;
-
- Procedure DModalTextData.SetDate2 (
- inValue: LongDateRec);
- begin
- mDate2 := inValue;
-
-
- SignalDataChanged (idDate2);
- end;
-
- {----------}
- Function DModalTextData.GetTime2: LongDateRec;
- begin
- GetTime2 := mTime2;
-
-
- end;
-
- Procedure DModalTextData.SetTime2 (
- inValue: LongDateRec);
- begin
- mTime2 := inValue;
-
-
- SignalDataChanged (idTime2);
- end;
-
- {----------}
- Function DModalTextData.GetStyled2: Str255;
- begin
- GetStyled2 := mStyled2;
-
-
- end;
-
- Procedure DModalTextData.SetStyled2 (
- inValue: Str255);
- begin
- mStyled2 := inValue;
-
-
- SignalDataChanged (idStyled2);
- end;
-
- end.
-